home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / cnetjam2.lha / CNetJam2 / s / JamMail.Wpl2 < prev    next >
Text File  |  1995-01-24  |  46KB  |  1,503 lines
  1. ; Jammer
  2. ; This config is guaranteed to work on whatever version of WPL i'm currently
  3. ; running.  It may/maynot work on future versions of WPL, and pretty much
  4. ; definately won't work on older versions.
  5. ; currently on WPL.library 0.99.27, JamMail.library 1.60
  6.  
  7.  TransferOut:
  8.    SetUpdate "$(XPRWindow)$(line) - Out: $(Remote.Add) - $(baud)Bps/inactive"
  9.    XprSend ""
  10.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Send $(EosM.$(rc))"
  11.    Print "Turn around and receive\n"
  12.    RexxMsg NY LOGPROC "FlushLog JMLOGS"
  13.    XprReceive ""
  14.    Set stat $(RC)
  15.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Receive $(EosM.$(stat))"
  16.    XprClose
  17.    SetUpdate NULL
  18.    EndSession ALL
  19.    XprSetup jammail.library ""
  20.    XprSend "duration"
  21.    XprSend "doeosstat $(remote.add)"
  22.    XprClose
  23.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(line)] $<Time> End of Fido Session with $(called) Duration: $(duration)"
  24.    ReplyCall $(EOS.$(stat))
  25.    Jump PostSession
  26.  
  27.  TransferIn:
  28.    SetUpdate "$(XPRWindow)$(line) - In: $(Remote.Add) - $(baud)Bps/inactive"
  29.    XprReceive ""
  30.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Receive $(EosM.$(RC))"
  31.    Print "Turn around and Send\n"
  32.    RexxMsg NY LOGPROC "FlushLog JMLOGS"
  33.    Delay 2
  34.    XprSend ""
  35.    Set stat $(RC)
  36.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Send $(EosM.$(stat))"
  37.    XprClose
  38.    SetUpdate NULL
  39.    EndSession ALL
  40.    XprSetup jammail.library ""
  41.    XprSend "duration"
  42.    XprSend "doeosstat $(remote.add)"
  43.    XprClose
  44.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(line)] $<Time> End of Fido Session with $(remote.address) Duration: $(duration)"
  45.    ReplyCall $(EOS.$(STAT))
  46.    Jump PostSession
  47.  
  48.  XTransferOut:
  49.    SetUpdate "$(XPRWindow)$(line) - Out: $(Remote.Add) - $(baud)Bps/inactive"
  50.    XprSend ""
  51.    Set stat $(RC)
  52.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Transfer $(EosM.$(stat))"
  53.    RexxMsg NY LOGPROC "FlushLog JMLOGS"
  54.    XprClose
  55.    SetUpdate NULL
  56.    EndSession ALL
  57.    XprSetup jammail.library ""
  58.    XprSend "duration"
  59.    XprSend "doeosstat $(remote.add)"
  60.    XprClose
  61.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(line)] $<Time> End of Fido Session with $(called)  Duration: $(duration)"
  62.    ReplyCall $(Eos.$(stat))
  63.    Jump PostSession
  64.  
  65.  XTransferIn:
  66.    SetUpdate "$(XPRWindow)$(line) - In: $(Remote.Add) - $(baud)Bps/inactive"
  67.    XprReceive ""
  68.    Set stat $(RC)
  69.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Transfer $(EosM.$(stat))"
  70.    RexxMsg NY LOGPROC "FlushLog JMLOGS"
  71.    XprClose
  72.    SetUpdate NULL
  73.    EndSession ALL
  74.    XprSetup jammail.library ""
  75.    XprSend "duration"
  76.    XprSend "doeosstat $(remote.add)"
  77.    XprClose
  78.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(line)] $<Time> End of Fido Session with $(remote.address)  Duration: $(duration)"
  79.    ReplyCall $(Eos.$(stat))
  80.    Jump PostSession
  81.  
  82.  DoDial:
  83.    Set State "Calling $(Remote.Address)\n"
  84.    ModemClear   
  85.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Trying To Connect To $(Remote.Address)"
  86.  
  87.    Clear Remote.Number
  88.    XprSetup jammail.library ""
  89.    XprSend "lOokup"
  90.    XprClose
  91.    Cmp $(Remote.number) ""
  92.    FalseJump DoDialhavenumber
  93.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> I don't know the number for $(Remote.Address)"
  94.    EndSession ALL
  95.    ReplyCall 20
  96.    Jump WaitRing
  97.  
  98.   DoDialhavenumber:
  99.    Set Dial $(DialString)
  100.    Set DialDisplay "Normal"
  101.   DoDial1:
  102.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Scanning for Dial Collision"
  103.   DoDial1.2:
  104.    GetResponse 5
  105.    CmpI $(event) TIMEOUT
  106.    TrueJump DoDial2
  107.    cmp $(event) OK
  108.    truejump dodial1.2
  109.    cmp $(event) EXTRA
  110.    truejump dodiallogextra
  111.    CallForward JAMMAIL$(line)
  112.    cmp $(event) CID
  113.    TrueJump DoDialCollision2
  114.    cmp $(event) NAME
  115.    TrueJump DoDialCollision2
  116.    cmp $(event) RING
  117.    TrueJump DoDialCollision2
  118.    Jump SlaveLoop
  119.  
  120.   DoDialCollision2:
  121.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Collision"
  122.    Jump NotExtraIn1
  123.  
  124.   DoDialLogExtra:
  125.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> $(lastResponse)"
  126.    Jump DoDial1.2
  127.  
  128.   DoDial2:
  129.    cmpi $(remote.type) NRC
  130.    FalseJump DoDial2NotNRC
  131.    SetBaud 300
  132.  
  133.   DoDial2NotNRC:
  134.    SmartSend "$(Dial)$(Remote.number)|"
  135.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> $(Dial)$(Remote.number) ($(Dialdisplay))"
  136.    Set State "Dialing $(Remote.Address)\n"
  137.    GetResponse 120
  138.    send "\n"
  139.  
  140.   afteroutresp:
  141.    Cmp $(event) EXTRA
  142.    FalseJump AfterTypeCheckNotExtra
  143.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> $(lastresponse)"
  144.    GetResponse 5
  145.    Jump afteroutresp
  146.  
  147.   AfterTypeCheckNotExtra:
  148.  
  149.    cmpi $(remote.type) FIDO
  150.    FalseJump NotFidoDoDial
  151.    RexxMsg SY REXX "Address 'COMMAND' 'JamTool -r $(Remote.Zone).$(Remote.Net).$(Remote.Node).$(Remote.Point).$(Remote.Domain) $(remote.address) $(event)'"
  152.    Jump AfterTypeCheckDoDial
  153.  
  154.   NotFidoDoDial:
  155.    RexxMsg SY REXX "Address 'COMMAND' 'JamTool -r $(Remote.Address) $(remote.address) $(event)'"
  156.  
  157.   AfterTypeCheckDoDial:
  158.    Cmp $(event) CONNECT
  159.    TrueJump Callconnect
  160.  
  161.    CmpI $(lastresponse) CONNECT
  162.    FalseJump not300
  163.    Set Baud 300
  164.    Jump Callconnect
  165.  
  166.   Not300:
  167.    Cmp $(event) TIMEOUT
  168.    FalseJump DoDial4
  169.     RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Timeout"
  170.     smartsend "|AT|"
  171.     ReplyCall 10
  172.     Jump Freeline
  173.  
  174.   DoDial4:
  175.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> -$(lastResponse)"
  176.    Cmp $(event) BUSY
  177.    FalseJump DoDial4.1
  178.    SmartSend "AT|"
  179.    ReplyCall 5
  180.    Jump Freeline
  181.  
  182.   DoDial4.1:
  183.    Cmp $(event) MAID
  184.    FalseJump DoDial4.2
  185.    ReplyCall 10
  186.    SmartSend "AT|"
  187.    Jump Freeline
  188.  
  189.   DoDial4.2:
  190.    Cmp $(event) LINE
  191.    FalseJump DoDial4.3
  192.    ReplyCall 15
  193.    Jump NotExtraIn1
  194.  
  195.   DoDial4.3:
  196.    Cmp $(event) RING
  197.    FalseJump DoDial4.5
  198.    CallForward JAMMAIL($LINE)
  199.    Jump NotExtraIn1
  200.  
  201.   DoDial4.5:
  202.    cmp $(event) CID
  203.    FalseJump FreeLine
  204.    CallForward JAMMAIL($LINE)
  205.    Jump NotExtraIn1
  206.  
  207.  DialTypeNotHere:
  208.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(line)] $<time> Call Type '$(remote.type)' Not Supported!"
  209.    ReplyCall 20
  210.    Jump FreeLine
  211.  
  212.  callconnect:
  213.    Set ConnectMsg $(lastresponse)
  214.    Set RC $(locked)
  215.    TrueJump CConnect2
  216.    Set BaudLocked $(baud)
  217.   CConnect2:
  218.    Set Start $<time>
  219.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> $(lastResponse)($(baud))"
  220.    Set State "Handshaking with $(Remote.Address)\n"
  221.  
  222.    CmpI $(Remote.type) UUCP
  223.    TrueJump DialTypeNotHere
  224.  
  225.    CmpI $(Remote.type) UUCP2
  226.    TrueJump DialTypeNotHere
  227.  
  228.    CmpI $(Remote.type) TERM
  229.    TrueJump DialTypeNotHere
  230.  
  231.    CmpI $(Remote.type) NRC
  232.    TrueJump DialTypeNotHere
  233.  
  234.    Set Host.Sitename "Hey, Dotoran has something for you!"
  235.    Set MinSendPri 0 MaxSendPri 127
  236.    Set called $(Remote.Address)
  237.    Set State "Connected to $(Remote.Address)\n"
  238.    Cmp $(Pre_Session) ""
  239.    TrueJump NoPreSession
  240.    RexxMsg SY REXX "Address 'COMMAND' '$(Pre_Session)'"
  241.   NoPreSession:
  242.  
  243.    BeginSession $(remote.address)
  244.    Set TryEMSI TRUE
  245.    Set TryWazoo TRUE
  246.    Set TryFTS1 TRUE
  247. ;0 aka's
  248.    Set TRACE $(lTRACE)
  249.    Set Whack ",WY"
  250.    Set RC $(TryEMSI)
  251.    FalseJump NotEMSI
  252.  
  253.    Set Whack ",WN"
  254.    XprSetup wplemsi.library "Outbound Emsi"
  255.    XprSend ""
  256.    XprClose
  257.    set RC $(EMSI)
  258.    FalseJump NotEMSIFail
  259.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> EMSI HandShake!"
  260.    SetEnv $(line).Remote.Number $(Remote.Number)
  261.    SetEnv $(line).Host.Number $(Host.Number)
  262.    XprSetup jammail.library ""
  263.    XprSend "akalookup"
  264.    XprClose
  265.  
  266.    Seta Remote $(remote.addresses.$(Addresses))
  267.    Set Remote.Add $(Remote.domain).$(Remote.zone).$(Remote.net).$(Remote.node).$(Remote.point)
  268.    BeginSession "$(remote.addresses.valid)"
  269.    BeginSession "$(remote.addresses.unknown)"
  270.    BeginSession "$(remote.addresses.valid.2)"
  271.    BeginSession "$(remote.addresses.unknown.2)"
  272.    BeginSession "$(remote.addresses.valid.3)"
  273.    BeginSession "$(remote.addresses.unknown.3)"
  274.    BeginSession "$(remote.addresses.valid.4)"
  275.    BeginSession "$(remote.addresses.unknown.4)"
  276.    BeginSession "$(remote.addresses.valid.5)"
  277.    BeginSession "$(remote.addresses.unknown.5)"
  278.    BeginSession "$(remote.addresses.valid.6)"
  279.    BeginSession "$(remote.addresses.unknown.6) EMSI"
  280.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Called $(called)"
  281.  
  282.    Cmp $(remote.addresses.valid) ""
  283.    Truejump NoValidEMSIout
  284.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Valid: $(remote.addresses.valid)"
  285.    Cmp $(remote.addresses.valid.2) ""
  286.    Truejump NoValidEMSIout
  287.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Valid: $(remote.addresses.valid.2)"
  288.    Cmp $(remote.addresses.valid.3) ""
  289.    Truejump NoValidEMSIout
  290.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Valid: $(remote.addresses.valid.3)"
  291.    Cmp $(remote.addresses.valid.4) ""
  292.    Truejump NoValidEMSIout
  293.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Valid: $(remote.addresses.valid.4)"
  294.    Cmp $(remote.addresses.valid.5) ""
  295.    Truejump NoValidEMSIout
  296.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Valid: $(remote.addresses.valid.5)"
  297.    Cmp $(remote.addresses.valid.6) ""
  298.    Truejump NoValidEMSIout
  299.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Valid: $(remote.addresses.valid.6)"
  300.   NoValidEMSIout:
  301.  
  302.    Cmp $(remote.addresses.unknown) ""
  303.    Truejump NounknownEMSIout
  304.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Unknown: $(remote.addresses.unknown)"
  305.    Cmp $(remote.addresses.unknown.2) ""
  306.    Truejump NoUnknownEMSIout
  307.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Unknown: $(remote.addresses.unknown.2)"
  308.    Cmp $(remote.addresses.unknown.3) ""
  309.    Truejump NoUnknownEMSIout
  310.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Unknown: $(remote.addresses.unknown.3)"
  311.    Cmp $(remote.addresses.unknown.4) ""
  312.    Truejump NoUnknownEMSIout
  313.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Unknown: $(remote.addresses.unknown.4)"
  314.    Cmp $(remote.addresses.unknown.5) ""
  315.    Truejump NoUnknownEMSIout
  316.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Unknown: $(remote.addresses.unknown.5)"
  317.    Cmp $(remote.addresses.unknown.6) ""
  318.    Truejump NoUnknownEMSIout
  319.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Unknown: $(remote.addresses.unknown.6)"
  320.   NoUnknownEMSIout:
  321.  
  322.    Cmp $(remote.addresses.invalid) ""
  323.    Truejump NoBadEMSIout
  324.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Bad  : $(remote.addresses.invalid)"
  325.    Cmp $(remote.addresses.invalid.2) ""
  326.    Truejump NoBadEMSIout
  327.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Bad  : $(remote.addresses.invalid.2)"
  328.    Cmp $(remote.addresses.invalid.3) ""
  329.    Truejump NoBadEMSIout
  330.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Bad  : $(remote.addresses.invalid.3)"
  331.    Cmp $(remote.addresses.invalid.4) ""
  332.    Truejump NoBadEMSIout
  333.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Bad  : $(remote.addresses.invalid.4)"
  334.    Cmp $(remote.addresses.invalid.5) ""
  335.    Truejump NoBadEMSIout
  336.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Bad  : $(remote.addresses.invalid.5)"
  337.    Cmp $(remote.addresses.invalid.6) ""
  338.    Truejump NoBadEMSIout
  339.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Bad  : $(remote.addresses.invalid.6)"
  340.   NoBadEMSIout:
  341.  
  342.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Name : $(remote.sitename)"
  343.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Sysop: $(remote.sysop) ($(remote.city))"
  344.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Using: $(remote.mailer) $(remote.version)/$(remote.serial)"
  345.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Link : $(remote.link)"
  346.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Compt: $(remote.compat)"
  347.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Flags: $(remote.flags),$(remote.baud)"
  348.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Time : $(remote.time)/$(host.time)"
  349.    RexxMsg NY LOGPROC "FlushLog JMLOGS"
  350.    Set RC $(Remote.freq)
  351.    FalseJump CheckProtocolsOut
  352.  
  353.    FindFreq $(remote.addresses.valid)
  354.    FindFreq $(remote.addresses.unknown)
  355.    FindFreq $(remote.addresses.valid.2)
  356.    FindFreq $(remote.addresses.unknown.2)
  357.    FindFreq $(remote.addresses.valid.3)
  358.    FindFreq $(remote.addresses.unknown.3)
  359.    FindFreq $(remote.addresses.valid.4)
  360.    FindFreq $(remote.addresses.unknown.4)
  361.    FindFreq $(called)"
  362.    Jump CheckProtocolsOut
  363.  
  364.   NotEMSI:
  365.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> EMSI Disabled, trying other handshake"
  366.    Jump PostNotEMSIFail
  367.  
  368.   NotEMSIFail:
  369.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> EMSI Failed, trying other handshake"
  370.  
  371.   PostNotEMSIFail:
  372.    Set Freq FALSE
  373.    Set RC $(tryfts1)
  374.    TrueJump tryfts1out
  375.    Set RC $(trywazoo)
  376.    TrueJump trywazooout
  377.    Jump tryneitherout
  378.  
  379.   tryfts1out:
  380.    Set RC $(trywazoo)
  381.    TrueJump trybothout
  382.  print "trying fts1 only"
  383.    GetOutbound "G1,D1$(whack)"
  384.    Jump PostTrySomethingout
  385.  
  386.   trywazooout:
  387.  print "trying wazoo only"
  388.    GetOutbound "G6,D6$(whack)"
  389.    Jump PostTrySomethingout
  390.  
  391.   trybothout:
  392.  print "trying fts1 and wazoo"
  393.    GetOutbound "G6,D6,G1,D1$(whack)"
  394.   PostTrySomethingOut:
  395.    Cmp $(event) WAZOO
  396.    TrueJump IsOkOutbound
  397.    Cmp $(event) FTS1
  398.    TrueJump IsOkOutbound
  399.  
  400.   tryneitherout:
  401.    EndSession all
  402.    ReplyCall 30
  403.    Jump PostSession2
  404.  
  405.   IsOkOutbound:
  406.    CmpI $(called) $(Remote.Address)
  407.    TrueJump Fidoconnect2
  408.     Set Nodelist NONE
  409.     XprSetup jammail.library ""
  410.     XprSend "Lookup"
  411.     XprClose
  412.    cmp $(test.password) ""
  413.    TrueJump Dualpassed
  414.    cmp $(remote.password) $(test.password)
  415.    Truejump dualpassed
  416.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(line)] $<time> $(remote.address) failed Password test ($(remote.password))"
  417.  
  418.    seta remote $(called)
  419.    Jump FidoConnect3
  420.  
  421.   Dualpassed:
  422.    BeginSession $(remote.address)
  423.    Set State "Connected to $(called) $(Remote.Address)\n"
  424.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(line)] $<time> Connected to $(called) $(remote.address)"
  425.    Jump Fidoconnect3
  426.   Fidoconnect2:
  427.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(line)] $<time> Connected to $(remote.address)"
  428.  
  429.   Fidoconnect3:
  430.    CmpI $(event) FTS1
  431.    FalseJump CallConnectWaZoo
  432.  
  433.    SetMailerFlags "DY,PY"
  434.    XprSetup xprfts.library "7y,cy,ob,ib,sy,bn,an,ny,wy,fy"
  435.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> FTS-1: Setup RC:$(RC)"
  436.    Jump XTransferOut
  437.  
  438.   CallConnectWaZoo:
  439.    Set IsOutbound TRUE
  440.    SubJump jammail!wazoo
  441.    Set IsOutbound FALSE
  442.  
  443.   Fidoconnect4:
  444.    Set RC $(Remote.freq)
  445.    FalseJump Wazoo2EmsiOut
  446.  
  447.    FindFreq $(called)
  448.    CmpI $(called) $(remote.address)
  449.    TrueJump Wazoo2EmsiOut
  450.    FindFreq $(Remote.address)
  451.  
  452.   Wazoo2EmsiOut:
  453.    Set Remote.Compat $(YooHoo.$(host.wzcap))
  454.  
  455.    CheckProtocolsOut:
  456.     Pattern $(Remote.Compat) "ZAP#?"
  457.     TrueJump ZapOut
  458.     Pattern $(Remote.Compat) "ZMO#?"
  459.     TrueJump ZipOut
  460.     Pattern $(Remote.Compat) "SLK#?"
  461.     TrueJump SeaLinkOut
  462.     Pattern $(Remote.Compat) "TLK#?"
  463.     TrueJump TeLinkOut
  464.  
  465.    DietOut:
  466.     XprSetup xprfts.library "$(ftsflags.$(Remote.product))"
  467.     RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Proto: DietIFNA Setup RC:$(RC)"
  468.     Jump XTransferOut
  469.  
  470.    TeLinkOut:
  471.     XprSetup xprfts.library "OT,SN,MN"
  472.     RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Proto: TeLink Setup RC:$(RC)"
  473.     Jump XTransferOut
  474.  
  475.    SeaLinkOut:
  476.     XprSetup xprfts.library "OS,SF,WY,MN"
  477.     RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Proto: SeaLink Setup RC:$(RC)"
  478.     Jump XTransferOut
  479.  
  480.    ZipOut:
  481.     SetMailerFlags "DE,PN"
  482.     XprSetup xprzedzap.library TN,OR,B16,F0,E30,AN,DN,KN,SN,RN,M1024 
  483.     RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Proto: ZedZip Setup RC:$(RC)"
  484.     Jump TransferOut
  485.  
  486.    ZapOut:
  487.     SetMailerFlags "DN,PN"
  488.     XprSetup xprzedzap.library TN,OR,B16,F0,E30,AN,DN,KN,SN,RN,NY,M8192,C$(BAUD) 
  489.     RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Proto: ZedZap Setup RC:$(RC)"
  490.     Jump TransferOut
  491.  
  492. ;-------------- 
  493.  
  494.  OwnDevNotMe:
  495.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(line)] $<time> $(Owner) owns device - Waiting.."
  496.    Print "$(Owner) owns device - Waiting..\n"
  497.    set RC TRUE
  498.    Return
  499.  
  500.  PostSession:
  501.    cmp $(Post_Session) ""
  502.    TrueJump PostSession2
  503.    RexxMsg SY REXX "Address 'COMMAND' '$(Post_Session)'"
  504.  
  505.  PostSession2:
  506.    SignalSlave d JAMMAIL
  507.    clear event Return UserName
  508.    ModemClear
  509.    SmartSend "AT|"
  510.  
  511.  freeLine:
  512.    getresponse 2
  513.    cmpi $(event) OK
  514.    TrueJump slaveloop
  515.      ModemClose
  516.      Delay 2
  517.  
  518.  slaveloop:
  519.    SubJump jammail!Setglobals
  520.    Set OwnDev jammail!OwnDevNotMe
  521.    Set State "Slaveloop\n"
  522.    Setpri $(Priority)
  523.    ModemOpen
  524.    TrueJump WaitRing
  525.       RexxMsg NY LOGPROC "PutLog JMLOGS [$(line)] Can't Open Modem!"
  526.       RexxMsg NY LOGPROC "FlushLog JMLOGS"
  527.       ModemClose
  528.       ModemOpen
  529.       TrueJump WaitRing
  530.       RexxMsg NY LOGPROC "PutLog JMLOGS [$(line)] Can't Open Modem!"
  531.       RexxMsg NY LOGPROC "FlushLog JMLOGS"
  532.       Return
  533.  
  534.  WaitRing:
  535.    Cmp $(State) "Waiting."
  536.    TrueJump mainwaitloop
  537.     SmartSend "AT|"
  538.     System "delete >nil: env:$(line).#?"
  539.     BangIt:
  540.       getresponse 2
  541.       cmp $(event) OK
  542.       TrueJump PostBang
  543.       Smartsend "~$(hangupstring)~"
  544.       getresponse 2
  545.       cmp $(event) OK
  546.       TrueJump PostBang
  547.       Smartsend "~$(bang)|"
  548.       getresponse 2
  549.       Set RC $<abort>
  550.          FalseJump BangIt2
  551.          RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Line $(line) Exiting"
  552.          ModemClose
  553.          Return
  554.      BangIt2:
  555.       cmp $(event) RING
  556.       TrueJump PostBang
  557.       cmp $(event) OK
  558.       TrueJump PostBang
  559.       ModemClose
  560.       Delay 2
  561.       ModemOpen
  562.       smartSend "$(hangupstRing)|"
  563.       Jump BangIt
  564.      PostBang:
  565.       smartSend "~$(InitstRing)|"
  566.       getresponse 2
  567.       RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Waiting for Call..."
  568.       RexxMsg NY LOGPROC "FlushLog JMLOGS"
  569.       Set State "Waiting."
  570.       Set Rings 0
  571.       Setenv $(Line).CID "Not Available"
  572.       Setenv $(Line).NAME "Unknown"
  573.       Setenv $(Line).Rings "0"
  574.  
  575.  MainWaitLoop:
  576.    SubJump jammail!ModemInit
  577.    FalseJump freeLine
  578.    cmpi $(event) OK
  579.    falsejump WaitRing1.22
  580.  
  581.    CheckCall
  582.    TrueJump DoDial
  583.    Pattern $(Rings) 0#?
  584.    FalseJump WaitRing
  585.    Pattern $(State) Wait#?
  586.    FalseJump WaitRing
  587.    WaitEvent 1
  588.    Set RC $(breakc)
  589.    FalseJump NotBreakcNow2
  590.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Sending Abort to Scheduler"
  591.    SignalSlave c JAMMAIL
  592.   NotBreakcNow2:
  593.  
  594.    Set RC $<abort>
  595.    FalseJump WaitRing1
  596.       RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Line $(line) Exiting"
  597.       ModemClose
  598.       Return
  599.  
  600.   WaitRing1:
  601.    SubJump jammail!Setglobals
  602.    Set CallInterupt TRUE
  603.  
  604.   WaitRing1.1:
  605.    Set OwnDevUnit TRUE
  606.    GetResponse $(Timeoutvalue)
  607.   WaitRing1.22:
  608.    Set OwnDevUnit FALSE
  609.    Set CallInterupt FALSE
  610.    CmpI $(event) OWNDEVUNIT
  611.    TrueJump freeLine
  612.    CmpI $(event) Timeout
  613.    TrueJump Mainwaitloop
  614.    CmpI $(event) OK
  615.    TrueJump Mainwaitloop
  616.    Setpri $(Priority)
  617.   Waitring1.23:
  618.    CMP $(event) EXTRA
  619.    FalseJump NotExtraIn1
  620.      RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> $(lastResponse)"
  621.      Jump WaitRing1.1
  622.   NotExtraIn1:
  623.    CmpI $(event) Ring
  624.    FalseJump WaitRing3
  625.      Set State "Ring..Ring..\n"
  626.      System "eval >env:$(Line).Rings $(Rings) + 1 lformat=\"%n\""
  627.      Set Rings ${$(Line).Rings}
  628.      RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> $(lastResponse) $(Rings)"
  629.      cmpi $(answerring) 0
  630.      truejump gotcid
  631.      cmpi $(answerring) 1
  632.      truejump gotcid
  633.      Cmp $(Rings) $(AnswerRing)
  634.      TrueJump gotCID
  635.      Set Timeoutvalue 6
  636.      Jump WaitRing1.1
  637.  
  638.   WaitRing3:
  639.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> $(lastResponse) ($(event))"
  640.    RexxMsg NY LOGPROC "FlushLog JMLOGS"
  641.    Set State "$(event)\n"
  642.    Set Timeoutvalue 1
  643.    CmpI $(event) CID
  644.    FalseJump WaitRing1.1
  645.    Setenv $(Line).CID $(lastResponse)
  646.    GetResponse 1
  647.    CmpI $(event) NAME
  648.    FalseJump GotCID
  649.    Setenv $(Line).NAME $(lastResponse)
  650.  
  651.   gotCID:
  652.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Answer"
  653.    SmartSend $(Answer)
  654.    Set RC $(realmodem)
  655.    FalseJump GotCid2
  656.    GetResponse 1
  657.    GetResponse 1
  658.    GetResponse 1
  659.    GetResponse 1
  660.  
  661.   GotCID2:
  662.    RexxMsg NY LOGPROC "FlushLog JMLOGS"
  663.    GetResponse 120
  664.    Cmp $(event) CONNECT
  665.    TrueJump CIDcarrier
  666.    Cmp $(event) TIMEOUT
  667.    FalseJump AfterAnswer
  668.      RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> TimeOut"
  669.      Jump PostSession2
  670.   AfterAnswer:
  671.    Cmp $(event) MAID
  672.    FalseJump AfterAnswer2
  673.      RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Modem TimeOut"
  674.      Jump PostSession2
  675.   AfterAnswer2:
  676.    Cmp $(event) EXTRA
  677.    FalseJump NotExtraIn2
  678.      RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> $(lastResponse)"
  679.      Jump GotCid2
  680.   NotExtraIn2:
  681.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> $(lastResponse) ($(event))"
  682.    Cmp $(event) LINE
  683.    TrueJump WaitRing
  684.    Cmp $(event) RING
  685.    TrueJump gotcid
  686.    CmpI $(event) CID
  687.    FalseJump gotCID2
  688.    Setenv $(Line).CID $(lastResponse)
  689.    Jump gotCID2
  690.  
  691.   CIDcarrier:
  692.    Set ConnectMsg $(lastresponse)
  693.    Set Start $<time>
  694.    Set State "Connected To ${$(Line).CID}\n"
  695.    Set RC $(locked)
  696.    TrueJump RConnect2
  697.    Set BaudLocked $(baud)
  698.   RConnect2:
  699.    Set MaxSendPri 127 MinSendPri -127
  700.    Set host.sitename "Frontiers BBS! Home of Dotoran!"
  701.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> $(lastResponse)($(baud))"
  702.    RexxMsg NY LOGPROC "FlushLog JMLOGS"
  703.  
  704.    RexxMsg SY REXX "Address 'COMMAND' 'echo >env:$(line).date `date` noline'"
  705.    Set temp "\n\r$(lastResponse) / ${$(Line).date} $<Time>\r\n"
  706.    Print $(temp)
  707.    Send $(temp)
  708.    Set Count 0
  709.    Set temp "\r\nWelcoming you with JamMail 0.98.807/${WPLName}\r\nLine $(Line) - $(modem)\r\n"
  710.    Print $(temp)
  711.    Send $(temp)
  712.  
  713.   MConnect0:
  714.    Set Temp "\n\r**EMSI_REQA77E\r"
  715.    Print $(temp)
  716.    Send $(temp)
  717.    Set Temp "Press Escape Twice..."
  718.    Print $(temp)
  719.    Send $(temp)
  720.    GetInbound "$(protocols),GE,E2" 20
  721.    Set Temp "Event: $(Event)\r\n"
  722.    Print $(temp)
  723.    Set UserName $(namebuf)
  724.    Cmp $(event) TIMEOUT
  725.    FalseJump MConnect01
  726.    Send "\r\n$(temp)"
  727.    XprSetup jammail.library ""
  728.    XprSend "DoMath $(count) + 1 Count"
  729.    XprClose
  730.    Cmp $(count) 5
  731.    FalseJump MConnect0
  732.    Jump PostSession2
  733.  
  734.   MConnect01:
  735.    Cmp $(Event) LOGIN
  736.    FalseJump MConnect2
  737.    CmpI $(namebuf) BBS
  738.    FalseJump MConnect0
  739.  
  740.   MConnect00:
  741.    XprSetup jammail.library ""
  742.    XprSend "Type text:banner"
  743.    XprClose
  744.  
  745. ;---
  746.   mconnect:
  747.    Set RC ${ZMH}
  748.    FalseJump mconnect0.1
  749.    Set Temp "\r\nNetwork Mail Time Zone is in Effect!  This system is currently Mail Only!\r\n\r\n"
  750.    Set Host.Freq false
  751.    Print $(temp)
  752.    Send $(temp)
  753.  
  754.   mconnect0.1:
  755.    Set Temp "\r\n$(host.address)\n\rType ? for Help, type FR (or press ESC twice) to login:"
  756.    Print $(temp)
  757.    Send $(temp)
  758.    Clear temp namebuf
  759.  
  760.    Setpri $(Priority)
  761.    GetInbound "$(protocols),GE,E0" 180
  762.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Event: $(event)"
  763.    RexxMsg NY LOGPROC "FlushLog JMLOGS"
  764.  
  765.    Cmp $(event) TIMEOUT
  766.    FalseJump CheckLogin
  767.      XprSetup jammail.library ""
  768.      XprSend "DoMath $(Count) + 1 Count"
  769.      XprClose
  770.      Cmp $(Count) 5
  771.      FalseJump MConnect
  772.      Jump LoginHangup
  773.  
  774.   CheckLogin:
  775.    Pattern $(event) LOGIN
  776.    FalseJump mconnect2
  777.      Pattern $(namebuf) ""
  778.      TrueJump mconnect
  779.      Pattern $(namebuf) "#?}{#?"
  780.      FalseJump NotPoPemsiin
  781.       Set Event "EMSI_INQ"
  782.       Set Host.Sitename "JamMail Detected Buggy EMSI"
  783.       RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> $(host.sitename)"
  784.       Jump mconnect2
  785.      NotPoPemsiIn:
  786.      Set State "User At Login\n"
  787.      Set UserName $(namebuf)
  788.      clear namebuf
  789.      RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> UserCommand: $(UserName)"
  790.  
  791.      CmpI $(UserName) ?
  792.      TrueJump Loginhelp
  793.      Set RC ${ZMH}
  794.      TrueJump MconnectZmh
  795.      Pattern $(UserName) freq#?
  796.      TrueJump Promptfreq
  797.      Pattern $(UserName) grab#?
  798.      TrueJump Promptfreq
  799.  
  800.      Pattern $(UserName) "FILES"
  801.      TrueJump ZSendFR_FILES.LHA
  802.      Pattern $(UserName) "GETUSERSP"
  803.      TrueJump ZSendGU30_PACKAGE.LHA
  804.      Pattern $(UserName) "GETUSERS"
  805.      TrueJump ZSendGETUSERS.LHA
  806.      Pattern $(UserName) "CNETTOOLKIT"
  807.      TrueJump ZSendCNET_TOOLKIT_V2_0.LHA
  808.      Pattern $(UserName) "TOOLKITFIXES"
  809.      TrueJump ZSendCNET_TOOLKIT_V2FIX.LHA
  810.      Pattern $(UserName) "CFILES"
  811.      TrueJump ZSendFR_CFILES.LHA
  812.      Pattern $(UserName) "DFILES"
  813.      TrueJump ZSendFR_DFILES.LHA
  814.      Pattern $(UserName) "AFILES"
  815.      TrueJump ZSendFR_AFILES.LHA
  816.      Pattern $(UserName) "IFILES"
  817.      TrueJump ZSendFR_IFILES.LHA
  818.  
  819.      CmpI $(UserName) bbs
  820.      TrueJump bbslaunch1
  821.      CmpI $(UserName) "FR"
  822.      TrueJump bbslaunch1
  823.     MconnectZmh:
  824.  
  825.      Pattern $(UserName) "#? #?"
  826.      TrueJump Loginhelp
  827.      CmpI $(UserName) off
  828.      TrueJump loginhangup
  829.      CmpI $(UserName) bye
  830.      TrueJump loginhangup
  831.      CmpI $(UserName) quit
  832.      TrueJump loginhangup
  833.      CmpI $(UserName) exit
  834.      TrueJump loginhangup
  835.      CmpI $(UserName) x
  836.      TrueJump loginhangup
  837.      CmpI $(UserName) q
  838.      TrueJump loginhangup
  839.      CmpI $(UserName) g
  840.      TrueJump loginhangup
  841.      CmpI $(UserName) CID
  842.      TrueJump displayCID
  843.  
  844.    logintype:
  845.    Xprsetup jammail.library ""
  846.    XprSend "isvalid"
  847.    XprClose
  848.    Set RC $(isvalid)
  849.    FalseJump NotValidLoginType
  850.  
  851.    Cmp $(username) help
  852.    TrueJump HelpByeType
  853.    Cmp $(username) goodbye
  854.    TrueJump HelpByeType
  855.    Xprsetup jammail.library ""
  856.    XprSend "type text:$(username)"
  857.    XprClose
  858.    Jump mconnect
  859.  
  860.   HelpByeType:
  861.    Xprsetup jammail.library ""
  862.    XprSend "Type text:$(username)"
  863.    XprClose
  864.    Cmp $(UserName) goodbye
  865.    FalseJump mconnect
  866.    Jump PostSession2
  867.  
  868.   NotValidLoginType:
  869.     set temp "Invalid String Entered\n"
  870.     send $(temp)
  871.     print $(temp)
  872.      Jump mconnect
  873.  
  874.    loginhangup:
  875.      Set UserName goodbye
  876.      Jump logintype
  877.  
  878.    loginhelp:
  879.      Set UserName help
  880.      Jump logintype
  881.  
  882.    displayCID:
  883.       Set CallerID "\nCID: ${$(Line).CID}\n"
  884.       print $(callerid)
  885.       Send $(callerid)
  886.       Jump mconnect
  887.  
  888.    bbslaunch1:
  889.      Set State "User Dropped To FR\n"
  890.      RexxMsg SY REXX "Address 'COMMAND' 'cnet:BBSWAKE PORT $(line) BAUD $(baud) LOCK $(baudlocked)'"
  891.      CmpI $(RC) 0
  892.  
  893.     bbslaunch1.3:
  894.      System "0"
  895.      Jump PostSession2
  896.  
  897.    Promptfreq:
  898.      Set State "User Freqing Files\n"
  899.     XprSetup jammail.library ""
  900.     XprSend "Type text:freqbanner"
  901.     XprClose
  902.      Set temp "\r\nBatch Zmodem Download.  Enter one name per Line.  Q to Exit (Abort).\r\n\r\n"
  903.      Send $(temp)
  904.      print $(temp)
  905.      System "delete >nil: t:freq-$(Line).req"
  906.      Set counter FALSE
  907.  
  908.    Promptfreqprompt:
  909.      Set temp "Enter Filename to Download: "
  910.      Send $(temp)
  911.      print $(temp)
  912.      GetInbound "G1,G6,E0" 180
  913.      CmpI $(event) CARRIER
  914.      TrueJump mconnect
  915.      CmpI $(namebuf) q
  916.      truejump mconnect
  917.      CmpI $(namebuf) magic
  918.      FalseJump pfreqhelp
  919.     XprSetup jammail.library ""
  920.     XprSend "Type text:magic"
  921.     XprClose
  922.      Jump promptfreqprompt
  923.  
  924.     pfreqhelp:
  925.      CmpI $(namebuf) "help"
  926.      TrueJump promptfreqhelp
  927.      Cmp $(namebuf) "?"
  928.      FalseJump prefreqAdd
  929.  
  930.     promptfreqhelp:
  931.     XprSetup jammail.library ""
  932.     XprSend "Type $(freqhelp)"
  933.     XprClose
  934.      Jump promptfreqprompt
  935.  
  936.     prefreqAdd:
  937.      CmpI $(namebuf) ""
  938.      FalseJump PromptfreqAdd
  939.      Set RC $(counter)
  940.      TrueJump Promptdofreq
  941.      Jump mconnect
  942.   
  943.    PromptfreqAdd:
  944.      Set username $(namebuf)
  945.     XprSetup jammail.library ""
  946.     XprSend "isvalid"
  947.     XprClose
  948.     Set RC $(isvalid)
  949.      FalseJump NotValidFreqAdd
  950.  
  951.      Set counter TRUE
  952.      System "echo >>t:freq-$(Line).req $(namebuf)"
  953.      Jump PromptFreqPrompt
  954.  
  955.    NotValidFreqAdd:
  956.      set temp "Invalid FileName!\n"
  957.      send $(temp)
  958.      print $(temp)
  959.      Jump PromptFreqPrompt
  960.  
  961.    Promptdofreq:
  962.      Set State "User Freqing Files\n"
  963.      Set temp "Scanning for file(s)"
  964.      RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> $(temp)"
  965.      Send "\r\n$(temp)\r\n"
  966.      SetA remote $(host.address)$(line)
  967.      Set Remote.Sysop User
  968.      Set InFile t:freq-$(line).req
  969.      Set RLOFile PIPE:Line-$(line).RLO
  970.      Set Command "FREQ:Bin/FFRS FREQ:ffrs.cfg $(infile) $(rlofile) $(baud) $(remote.zone):$(remote.net)/$(remote.node).$(remote.point) \"$(remote.sysop)\""
  971.      BeginSession $(remote.address)
  972.      RexxMsg SY REXX "Address 'COMMAND' 'jfreqsh HOLD $(remote.address) $(RLOFILE)'"
  973.      RexxMsg SY REXX "Address 'COMMAND' 'run $(command)'"
  974.      RexxMsg SY REXX "Address 'COMMAND' 'run jfreqsh PROCESS $(remote.address) $(RLOFILE)'"
  975.      Set temp "Sending file(s) with Batch Zmodem\n\r\n\r"
  976.      print $(temp)
  977.      Send $(temp)
  978.      clear temp
  979.      RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Starting Batch Send"
  980.      SetUpdate "$(XPRWindow)${$(Line).CID} - Freq Line $(Line) - $(baud)Bps/inactive"
  981.      XprSetup xprzedzap.library "TN,OR,B16,F0,E10,AN,DN,KN,SY,RN,M1024"
  982.      XprSend ""
  983.      RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Finished Batch Send"
  984.      XprClose
  985.      SetUpdate NULL
  986.      EndSession All
  987.      Jump mconnect
  988.  
  989.    ZSendFR_FILES.LHA:
  990.      Set message "Full listing of files online at Frontiers BBS."
  991.      Send $(message)
  992.      Set promptfile "FREQ:FR_FILES.LHA"
  993.      Set username "FR_FILES.LHA"
  994.      Jump PromptZSend
  995.  
  996.    ZSendGU30_PACKAGE.LHA:
  997.      Set message "Complete listing of GetUser Values for CNet v2.63 thru v3.0P."
  998.      Send $(message)
  999.      Set promptfile "UDBase0:CNet_Dotoran2/GU30_Package.LHA"
  1000.      Set username "GU30_PACKAGE.LHA"
  1001.      Jump PromptZSend
  1002.  
  1003.    ZSendGETUSERS.LHA:
  1004.      Set message "The most recent Long and Short GetUsers listing. No other frills!"
  1005.      Send $(message)
  1006.      Set promptfile "GFiles:SysOps/GETUSERS.LHA"
  1007.      Set username "GETUSERS.LHA"
  1008.      Jump PromptZSend
  1009.  
  1010.    ZSendCNET_TOOLKIT_V2_0.LHA:
  1011.      Set message "CNet Amiga ToolKit, with numerous AREXX and MCI Enhancements!"
  1012.      Send $(message)
  1013.      Set promptfile "UDBase0:CNet_Dotoran2/CNet_ToolKit_v2_0.LHA"
  1014.      Set username "CNET_TOOLKIT_V2_0.LHA"
  1015.      Jump PromptZSend
  1016.  
  1017.    ZSendCNET_TOOLKIT_V2FIX.LHA:
  1018.      Set message "Some fixes and late additions to the CNet Amiga ToolKit!"
  1019.      Send $(message)
  1020.      Set promptfile "UDBase0:CNet_Dotoran2/CNet_ToolKit_v2FIX.LHA"
  1021.      Set username "CNET_TOOLKIT_V2FIX.LHA"
  1022.      Jump PromptZSend
  1023.  
  1024.    ZSendFR_CFILES.LHA:
  1025.      Set message "Listing of CNet Amiga Speific files on Frontiers BBS."
  1026.      Send $(message)
  1027.      Set promptfile "FREQ:FR_CFILES.LHA"
  1028.      Set username "FR_CFILES.LHA"
  1029.      Jump PromptZSend
  1030.  
  1031.    ZSendFR_DFILES.LHA:
  1032.      Set message "Listing of files written by Dotoran for CNet Amiga BBS!"
  1033.      Send $(message)
  1034.      Set promptfile "FREQ:FR_DFILES.LHA"
  1035.      Set username "FR_DFILES.LHA"
  1036.      Jump PromptZSend
  1037.  
  1038.    ZSendFR_AFILES.LHA:
  1039.      Set message "Listing of Amiga Specific files on Frontiers BBS."
  1040.      Send $(message)
  1041.      Set promptfile "FREQ:FR_AFILES.LHA"
  1042.      Set username "FR_AFILES.LHA"
  1043.      Jump PromptZSend
  1044.  
  1045.    ZSendFR_IFILES.LHA:
  1046.      Set message "Listing of IBM Specific files for download from Frontiers BBS."
  1047.      Send $(message)
  1048.      Set promptfile "FREQ:FR_IFILES.LHA"
  1049.      Set username "FR_IFILES.LHA"
  1050.      Jump PromptZSend
  1051.  
  1052.    PromptZSend:
  1053.      Set temp "\r\n\r\nSending '$(username)' with Zmodem Batch\n\r"
  1054.      print $(temp)
  1055.      Send $(temp)
  1056.      SetUpdate "$(XPRWindow)$(line) - ${$(Line).CID} - $(Baud)Bps/inactive"
  1057.      XprSetup xprzedzap.library "TN,OR,B16,F0,E30,AN,DN,KN,SY,RN,M1024"
  1058.      XprSetFile $(promptfile) $(username) O
  1059.      XprSend $(username)
  1060.      Pattern $(filestatus) fail#?
  1061.      TrueJump ZsendLogout
  1062.      Send "\n\r$(cps) CPS ($(cpsp)%) of $(baud) Bps\n\r"
  1063.     ZSendLogout:
  1064.      Send $(FileStatus)!
  1065.      XprClose
  1066.      SetUpdate NULL
  1067.      Jump mconnect
  1068.  
  1069.    mconnect2:
  1070.     Pattern $(event) "#?EMSI#?"
  1071.     FalseJump Mconnect2.2
  1072.     Set TRACE $(lTRACE)
  1073.    Cmp $(Event) EMSI
  1074.    FalseJump NotBuggyEMSIIn
  1075.    Smartsend "|**EMSI_NAKEEC3\r\n"
  1076.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Buggy EMSI!"
  1077.    
  1078.   NotBuggyEMSIIn:
  1079.     XprSetup wplemsi.library "Receive"
  1080.    XprReceive ""
  1081.    XprClose
  1082.    set RC $(EMSI)
  1083.    FalseJump PostSession2
  1084.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> EMSI HandShake!"
  1085.    SetEnv $(line).Remote.Number $(Remote.Number)
  1086.    SetEnv $(line).Host.Number $(Host.Number)
  1087.    XprSetup jammail.library ""
  1088.    XprSend "akalookup"
  1089.    XprClose
  1090.  
  1091.    Seta Remote $(remote.addresses.$(Addresses))
  1092.    Set Remote.Add $(Remote.domain).$(Remote.zone).$(Remote.net).$(Remote.node).$(Remote.point)
  1093.    BeginSession "$(remote.addresses.valid)"
  1094.    BeginSession "$(remote.addresses.valid.2)"
  1095.    BeginSession "$(remote.addresses.valid.3)"
  1096.    BeginSession "$(remote.addresses.valid.4)"
  1097.    BeginSession "$(remote.addresses.valid.5)"
  1098.    BeginSession "$(remote.addresses.valid.6)"
  1099.    BeginSession "$(remote.addresses.unknown)"
  1100.    BeginSession "$(remote.addresses.unknown.2)"
  1101.    BeginSession "$(remote.addresses.unknown.3)"
  1102.    BeginSession "$(remote.addresses.unknown.4)"
  1103.    BeginSession "$(remote.addresses.unknown.5)"
  1104.    BeginSession "$(remote.addresses.unknown.6) EMSI"
  1105.  
  1106.    Cmp $(remote.addresses.valid) ""
  1107.    Truejump NoValidEMSIin
  1108.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Valid: $(remote.addresses.valid)"
  1109.    Cmp $(remote.addresses.valid.2) ""
  1110.    Truejump NoValidEMSIin
  1111.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Valid: $(remote.addresses.valid.2)"
  1112.    Cmp $(remote.addresses.valid.3) ""
  1113.    Truejump NoValidEMSIin
  1114.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Valid: $(remote.addresses.valid.3)"
  1115.    Cmp $(remote.addresses.valid.4) ""
  1116.    Truejump NoValidEMSIin
  1117.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Valid: $(remote.addresses.valid.4)"
  1118.    Cmp $(remote.addresses.valid.5) ""
  1119.    Truejump NoValidEMSIin
  1120.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Valid: $(remote.addresses.valid.5)"
  1121.    Cmp $(remote.addresses.valid.6) ""
  1122.    Truejump NoValidEMSIin
  1123.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Valid: $(remote.addresses.valid.6)"
  1124.   NoValidEMSIin:
  1125.  
  1126.    Cmp $(remote.addresses.unknown) ""
  1127.    Truejump NoUnknownEMSIin
  1128.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Unknown: $(remote.addresses.unknown)"
  1129.    Cmp $(remote.addresses.unknown.2) ""
  1130.    Truejump NoUnknownEMSIin
  1131.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Unknown: $(remote.addresses.unknown.2)"
  1132.    Cmp $(remote.addresses.unknown.3) ""
  1133.    Truejump NoUnknownEMSIin
  1134.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Unknown: $(remote.addresses.unknown.3)"
  1135.    Cmp $(remote.addresses.unknown.4) ""
  1136.    Truejump NoUnknownEMSIin
  1137.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Unknown: $(remote.addresses.unknown.4)"
  1138.    Cmp $(remote.addresses.unknown.5) ""
  1139.    Truejump NoUnknownEMSIin
  1140.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Unknown: $(remote.addresses.unknown.5)"
  1141.    Cmp $(remote.addresses.unknown.6) ""
  1142.    Truejump NoUnknownEMSIin
  1143.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Unknown: $(remote.addresses.unknown.6)"
  1144.   NoUnknownEMSIin:
  1145.  
  1146.    Cmp $(remote.addresses.invalid) ""
  1147.    Truejump NoBadEMSIin
  1148.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Bad  : $(remote.addresses.invalid)"
  1149.    Cmp $(remote.addresses.invalid.2) ""
  1150.    Truejump NoBadEMSIin
  1151.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Bad  : $(remote.addresses.invalid.2)"
  1152.    Cmp $(remote.addresses.invalid.3) ""
  1153.    Truejump NoBadEMSIin
  1154.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Bad  : $(remote.addresses.invalid.3)"
  1155.    Cmp $(remote.addresses.invalid.4) ""
  1156.    Truejump NoBadEMSIin
  1157.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Bad  : $(remote.addresses.invalid.4)"
  1158.    Cmp $(remote.addresses.invalid.5) ""
  1159.    Truejump NoBadEMSIin
  1160.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Bad  : $(remote.addresses.invalid.5)"
  1161.    Cmp $(remote.addresses.invalid.6) ""
  1162.    Truejump NoBadEMSIin
  1163.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Bad  : $(remote.addresses.invalid.6)"
  1164.   NoBadEMSIin:
  1165.  
  1166.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Name : $(remote.sitename)"
  1167.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Sysop: $(remote.sysop) ($(remote.city))"
  1168.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Using: $(remote.mailer) $(remote.version)/$(remote.serial)"
  1169.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Link : $(remote.link)"
  1170.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Compt: $(remote.compat)"
  1171.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Flags: $(remote.flags),$(remote.baud)"
  1172.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Time : $(remote.time)/$(host.time)"
  1173.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Phone: $(remote.phone)"
  1174.    RexxMsg NY LOGPROC "FlushLog JMLOGS"
  1175.    Jump CheckProtocolsIn
  1176.  
  1177.  
  1178.   Mconnect2.2:
  1179.    CmpI $(event) FTS1
  1180.    FalseJump mconnect3
  1181.      SetMailerFlags "DY,PY"
  1182.      Set Remote.Address 1:1/1.1
  1183.      XprSetup xprfts.library "7y,cy,ob,ib,sy,bn,an,ny,wy,fy"
  1184.      RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> FTS-1: Setup $(Setup) RC:$(RC)"
  1185.      Jump xtransferin
  1186.  
  1187.    mconnect3:
  1188.      CmpI $(event) GOTYOOHOO
  1189.      FalseJump mconnect4
  1190.      SubJump jammail!wazoo
  1191.      FalseJump WaitRing
  1192.      WazooRespond
  1193.      Print "Wazoo $(event)\n"
  1194.      FalseJump PostSession2
  1195.      BeginSession $(Remote.Address)
  1196.      set Host.Compat $(YooHoo.$(host.wzcap))
  1197.  
  1198.      Set TRACE $(lTRACE)
  1199.    CheckProtocolsIn:
  1200.     Pattern $(Host.Compat) "ZAP#?"
  1201.     TrueJump ZapIn
  1202.     Pattern $(Host.Compat) "ZMO#?"
  1203.     TrueJump ZipIn
  1204.     Pattern $(Host.Compat) "SLK#?"
  1205.     TrueJump SeaLinkIn
  1206.     Pattern $(Host.Compat) "TLK#?"
  1207.     TrueJump TeLinkIn
  1208.  
  1209.    DietIn:
  1210.     XprSetup xprfts.library "$(ftsflags.$(Remote.product))"
  1211.     RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Proto: DietIFNA Setup RC:$(RC)"
  1212.     Jump XTransferIn
  1213.  
  1214.    TeLinkIn:
  1215.     XprSetup xprfts.library "OT,SN,MN"
  1216.     RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Proto: TeLink Setup RC:$(RC)"
  1217.     Jump XTransferIn
  1218.  
  1219.    SeaLinkIn:
  1220.     XprSetup xprfts.library "OS,SF,WY,MN"
  1221.     RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Proto: SeaLink Setup RC:$(RC)"
  1222.     Jump XTransferIn
  1223.  
  1224.    ZipIn:
  1225.     SetMailerFlags "DE,PN"
  1226.     XprSetup xprzedzap.library TN,OR,B16,F0,E30,AN,DN,KN,SN,RN,M1024 
  1227.     RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Proto: ZedZip Setup RC:$(RC)"
  1228.     Jump TransferIn
  1229.  
  1230.    ZapIn:
  1231.     SetMailerFlags "DN,PN"
  1232.     XprSetup xprzedzap.library TN,OR,B16,F0,E30,AN,DN,KN,SN,RN,NY,M8192,C$(BAUD) 
  1233.     RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Proto: ZedZap Setup RC:$(RC)"
  1234.     Jump TransferIn
  1235.  
  1236.    mconnect4:
  1237.    Cmp $(event) CARRIER
  1238.    TrueJump PostSession2
  1239.    Jump Mconnect
  1240.  
  1241.  
  1242.  ; called on both inbound and outbound after receiving a yoohoo
  1243.  Wazoo:
  1244.    RexxMsg NY LOGPROC "FlushLog JMLOGS"
  1245.    CmpI $(host.address) ${host.address}
  1246.    trueJump PostWazooAKA
  1247.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(line)] $<time> My AKA: $(host.address)"
  1248.  
  1249.   PostWazooAKA:
  1250.    Set NODELIST NONE
  1251.    XprSetup jammail.library ""
  1252.    XprSend "decode"
  1253.    XprSend "Lookup"
  1254.    XprClose
  1255.  
  1256.    CmpI $(Test.Type} FIDO
  1257.    TrueJump WaZoo2
  1258.    CmpI $(Test.Type} ""
  1259.    TrueJump WaZoo2
  1260.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> System TYPE conflict (Not Fido)"
  1261.    Set RC FALSE
  1262.    Return
  1263.  
  1264.   WaZoo2:
  1265.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Name : $(Remote.sitename) ($(Remote.Address))"
  1266.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Sysop: $(Remote.sysop) ($(Test.city))"
  1267.  
  1268.    RexxMsg NY LOGPROC "FlushLog JMLOGS"
  1269.  
  1270.    Set Remote.Add $(Remote.domain).$(Remote.zone).$(Remote.net).$(Remote.node).$(Remote.point)
  1271.  
  1272.    Pattern $(mailername.$(Remote.product)) ""
  1273.    TrueJump wazoo2.1
  1274.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Using: $(mailername.$(Remote.product)) $(Remote.product_maj).$(Remote.product_min)"
  1275.    Jump wazoo2.2
  1276.  
  1277.   wazoo2.1:
  1278.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Using: $(Remote.product) $(Remote.product_maj).$(Remote.product_min)"
  1279.  
  1280.   wazoo2.2:
  1281.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> WaZoo:$(Remote.Wazoo) ($(remote.wzcap))"
  1282.    RexxMsg NY LOGPROC "FlushLog JMLOGS"
  1283.    Set RC $(IsOutbound)
  1284.    TrueReturn
  1285.    Pattern $(Test.password) "?#?"
  1286.    TrueJump WazooPWCheck 
  1287.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> No Password Required!"
  1288.    Pattern $(Remote.password) "?#?"
  1289.    FalseJump EndWazoo
  1290.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Given: '$(Remote.password)'"
  1291.    Jump EndWazoo
  1292.  
  1293.   WazooPWCheck:
  1294.    CmpI $(Test.password) $(Remote.password)
  1295.    TrueJump WazooPWProtected
  1296.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Password Error: His:'$(Remote.password)' Ours:'$(Test.password)'"
  1297.    Set RC FALSE
  1298.    Return
  1299.  
  1300.   WazooPWProtected:
  1301.    RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Password Protected Session"
  1302.  
  1303.  EndWazoo:
  1304.    Set RC TRUE
  1305.    Return
  1306.  
  1307.  Setglobals:
  1308.  
  1309.    Set TRACE FALSE
  1310.    SetPri $(priority)
  1311.    Set Stats FALSE
  1312.  ;Cleans - documentation of variables and saves memory
  1313.  
  1314.   Clear temp start stat event lastresponse rc return dial
  1315.   Clear remote.address remote.add remote.number remote.type remote.city
  1316.   Clear called remote.password remote.flags remote.sysop 
  1317.   Clear remote.time host.time remote.addresses remote.addresses.1
  1318.   Clear remote.compat namebuf username whatrun test.password
  1319.   Clear remote.addresses.valid   remote.addresses.valid.2
  1320.   Clear remote.addresses.valid.3 remote.addresses.valid.4
  1321.   Clear remote.addresses.valid.5 remote.addresses.valid.6
  1322.   Clear remote.addresses.invalid   remote.addresses.invalid.2
  1323.   Clear remote.addresses.invalid.3 remote.addresses.invalid.4
  1324.   Clear remote.addresses.invalid.5 remote.addresses.invalid.6
  1325.   Clear remote.addresses.unknown   remote.addresses.unknown.2
  1326.   Clear remote.addresses.unknown.3 remote.addresses.unknown.4
  1327.   Clear remote.addresses.unknown.5 remote.addresses.unknown.6
  1328.  
  1329. ; End of Session variables
  1330.   Set EOS.1 0 EOS.0 1
  1331.   Set EosM.1 Finished! EosM.0 Failed!
  1332.  ;Jumps
  1333.    Set preinbound  jammail!preinbound  Postinbound  jammail!Postinbound 
  1334.    Set preoutbound jammail!preoutbound Postoutbound jammail!Postoutbound
  1335.  
  1336.  ;General
  1337.  
  1338.    Set TimeOutValue $(lTimeOutValue)
  1339.    Set SerReadBuf     16
  1340.    Set SerWriteBuf    16
  1341.    Set PubScreenName  JamLogs
  1342.  
  1343.  ;Fido variables
  1344.    Set inbound "INBOUND:"  outbound "OUTBOUND:"
  1345.    Set pickup "TRUE" host.freq "TRUE"
  1346.    Set Protocols "G1,D1,G6,D6"
  1347.    Set MaxSendPri 127 MinSendPri -128
  1348.  
  1349.    Set Post_Session ""
  1350.    Set Pre_Session ""
  1351.  
  1352.    Set Host.Addresses "1:260/121@FidoNet"
  1353.    Set Host.Addresses.2 ""
  1354.    Set Host.Serial "JamMail 0.98.807 Jan 14 1995 (13:09:41)"
  1355.    Seta host FidoNet#1:260/121.0
  1356.    Set host.wzdomain $(host.domain)
  1357.    Setenv Host.address $(host.address)
  1358.    Set host.sysop "David Weeks (Dotoran)"
  1359.    Set Host.City "Buffalo, New York, USA"
  1360.    Set Nodelist traplist
  1361.    Set NodelistDir "NODELIST:" Cache TRUE
  1362.    Set host.wzcap 13
  1363.    Set host.compat "ZAP,ZMO,SLK,TEL,ARC,XMA"
  1364.  
  1365.  ;Mailers Config
  1366.    Set mailername.0   "FTS1"
  1367.    Set mailername.5   "OPUS"
  1368.    Set mailername.7   "WPL.Library"
  1369.    Set mailername.12  "FrontDoor"
  1370.    Set mailername.26  "D'Broke"
  1371.    Set mailername.27  "Binkley"
  1372.    Set mailername.50  "Paragon/StarNet/MEBBS"
  1373.    Set mailername.57  "TrapDoor"
  1374.    Set mailername.58  "Welmat"
  1375.    Set ftsflags.58    "7n,by"
  1376.    Set mailername.66  "TIMS"
  1377.    Set mailername.105 "Portal of Power"
  1378.    Set mailername.106 "MacWoof"
  1379.    Set ftsflags.106   ""
  1380.    Set mailername.170 "Xenolink"
  1381.    Set mailername.196 "ProMailer"
  1382.    Set mailername.254 "MelMail"
  1383.    Set ftsflags.254   "ot"
  1384.  
  1385.    Set YooHoo.1 Diet
  1386.    Set YooHoo.4 ZMO
  1387.    Set YooHoo.8 ZAP
  1388.  
  1389.    Set TRACE      $(lTRACE)
  1390.    Set Baud       $(BaudRate)
  1391.    Set BaudLocked $(BaudRate)
  1392.    Return
  1393.  
  1394.  ;---------
  1395.  
  1396.   preinbound:
  1397.     RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Receiving: '$(remfile)'"
  1398.     Return
  1399.  
  1400.   Postinbound:
  1401.     RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> $(fileStatus): '$(infile)' ($(filesize) bytes)"
  1402.     Pattern $(fileStatus) Fail#?
  1403.     TrueReturn
  1404.     RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> CPS $(CPS) ($(CPSP)%)"
  1405.     Pattern $(remfile) "#?.REQ"
  1406.     TrueJump Notify0
  1407.     Return
  1408.  
  1409.   Notify0:
  1410.    Set RLOFile PIPE:Line-$(line).RLO
  1411.    Set Command "freq:bin/ffrs freq:ffrs.cfg $(infile) $(rlofile) $(baud) $(remote.zone):$(remote.net)/$(remote.node).$(remote.point) \"$(remote.sysop)\""
  1412.    RexxMsg SY REXX "Address 'COMMAND' 'jfreqsh HOLD $(remote.address) $(RLOFILE)'"
  1413.    RexxMsg SY REXX "Address 'COMMAND' 'run $(command)'"
  1414.    RexxMsg SY REXX "Address 'COMMAND' 'run jfreqsh PROCESS $(remote.address) $(RLOFILE)'"
  1415.    Return
  1416.  
  1417.   preoutbound:
  1418.     RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> Sending: $(remfile) ($(filesize) bytes)"
  1419.     Return
  1420.  
  1421.   Postoutbound:
  1422.     RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> $(fileStatus): $(localfile)"
  1423.     Pattern $(fileStatus) Fail#?
  1424.     TrueReturn
  1425.     RexxMsg NY LOGPROC "PutLog JMLOGS [$(Line)] $<Time> CPS $(CPS) ($(CPSP)%)"
  1426.     Return
  1427.  
  1428.  
  1429.  startup-1:
  1430.    Set RealModem TRUE
  1431.    Set Line 1
  1432.    Set lTRACE FALSE
  1433.    Set lTimeOutValue 60
  1434.    Set State "Configuring Line\n"
  1435.    Set device "serial.device" unit 0 serflags 164
  1436.  
  1437.    Set Host.Phone "716-823-9892"
  1438.    Set Host.Baud "14400"
  1439.    Set Host.Flags "V32b"
  1440.  
  1441.    Set baudrate      19200
  1442.    Set Locked        TRUE
  1443.    Set DTR_Control   0
  1444.    Set HangupString  "ATH0|"
  1445.    Set AnswerRing    1
  1446.    Set Bang          "|AT|"
  1447.  
  1448.    Set modem "SupraFax 14.4 v32bis"
  1449.    AddResponse  OK   "OK"
  1450.    AddResponse  BUSY "BUSY"
  1451.    AddResponse  MAID "NO CARRIER"
  1452.    AddResponse  LINE "NO DIALTONE"
  1453.    AddResponse  FIND "CONNECT "
  1454.    AddResponse  RING "RING"
  1455.    AddResponse  300  "CONNECT"
  1456.  
  1457.    Set Atten         "ATZ|"
  1458.    Set InitStRing    "ATZ|"
  1459.    Set SlowModem     "FALSE"
  1460.    Set Answer        "ATA|"
  1461.  
  1462.    Set DialStRing    "ATM1DT"
  1463.    SetStatus "RAW:0/22/617/30/$(line) - $(MODEM)/Inactive"
  1464.    Set XPRWindow "RAW:0/11/640/120/"
  1465.    Set priority 0
  1466.    Jump slaveloop
  1467.  
  1468.   ModemInit:
  1469.    modemclear
  1470.    smartsend $(atten)
  1471.    getresponse 4
  1472.    cmpi $(event) OK
  1473.    truereturn
  1474.    smartsend $(initstring)
  1475.    getresponse 4
  1476.    cmpi $(event) OK
  1477.    truereturn
  1478.    cmpi $(event) ring
  1479.    truereturn
  1480.    cmpi $(event) cid
  1481.    truereturn
  1482.    cmpi $(event) time
  1483.    truereturn
  1484.    set RC $<abort>
  1485.    truereturn
  1486.    smartsend $(hangupstring)
  1487.    getresponse 2
  1488.    jump modeminit
  1489.  
  1490.  startup:
  1491.    Set Line M
  1492.    RexxMsg NY LOGPROC "PutLog JMLOGS "
  1493.    RexxMsg SY REXX "Address 'COMMAND' 'echo >env:m.date `date` NOLINE'"
  1494.    RexxMsg NY LOGPROC "PutLog JMLOGS [M] $<Time> Startup on ${M.Date}"
  1495.    RexxMsg NY LOGPROC "PutLog JMLOGS [M] $<Time> JamMail 0.98.807 Jan 14 1995 (13:09:41), ${wplname}"
  1496.    RexxMsg NY LOGPROC "PutLog JMLOGS [M] $<Time> Kickstart ${kickstart}, Workbench ${workbench}"
  1497.  
  1498.    System "delete >nil: env:m.#?"
  1499.    RexxMsg NY LOGPROC "PutLog JMLOGS [M] $<Time> Master Slave Exiting.."
  1500.    Launch JAMMAIL1 jammail!startup-1 1 4096
  1501.    Return
  1502.  
  1503.